home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 9.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 33 37 3a 35 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:37:50 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 72 69 6d |s-20.3/l|isp/prim|
|000000a0| 2f 77 69 6e 64 6f 77 2e | 65 6c 0a 3b 3b 3b 20 65 |/window.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)). (|
|000001e0| 65 72 72 6f 72 20 22 60 | 77 69 6e 64 6f 77 2e 65 |error "`|window.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 23 40 37 38 37 20 52 | 65 74 75 72 6e 73 20 6e |.#@787 R|eturns n|
|00000260| 6f 6e 2d 6e 69 6c 20 69 | 66 20 74 68 65 20 73 65 |on-nil i|f the se|
|00000270| 6c 65 63 74 65 64 20 77 | 69 6e 64 6f 77 20 69 73 |lected w|indow is|
|00000280| 20 74 68 65 20 6f 6e 6c | 79 20 77 69 6e 64 6f 77 | the onl|y window|
|00000290| 20 28 69 6e 20 69 74 73 | 20 66 72 61 6d 65 29 2e | (in its| frame).|
|000002a0| 0a 4f 70 74 69 6f 6e 61 | 6c 20 61 72 67 20 4e 4f |.Optiona|l arg NO|
|000002b0| 4d 49 4e 49 20 6e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |MINI non|-nil mea|
|000002c0| 6e 73 20 64 6f 6e 27 74 | 20 63 6f 75 6e 74 20 74 |ns don't| count t|
|000002d0| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 0a 65 76 |he minib|uffer.ev|
|000002e0| 65 6e 20 69 66 20 69 74 | 20 69 73 20 61 63 74 69 |en if it| is acti|
|000002f0| 76 65 2e 0a 0a 54 68 65 | 20 6f 70 74 69 6f 6e 61 |ve...The| optiona|
|00000300| 6c 20 61 72 67 20 41 4c | 4c 2d 46 52 41 4d 45 53 |l arg AL|L-FRAMES|
|00000310| 20 74 20 6d 65 61 6e 73 | 20 63 6f 75 6e 74 20 77 | t means| count w|
|00000320| 69 6e 64 6f 77 73 20 6f | 6e 20 61 6c 6c 20 66 72 |indows o|n all fr|
|00000330| 61 6d 65 73 2e 0a 49 66 | 20 69 74 20 69 73 20 60 |ames..If| it is `|
|00000340| 76 69 73 69 62 6c 65 27 | 2c 20 63 6f 75 6e 74 20 |visible'|, count |
|00000350| 77 69 6e 64 6f 77 73 20 | 6f 6e 20 61 6c 6c 20 76 |windows |on all v|
|00000360| 69 73 69 62 6c 65 20 66 | 72 61 6d 65 73 2e 0a 41 |isible f|rames..A|
|00000370| 4c 4c 2d 46 52 41 4d 45 | 53 20 6e 69 6c 20 6f 72 |LL-FRAME|S nil or|
|00000380| 20 6f 6d 69 74 74 65 64 | 20 6d 65 61 6e 73 20 63 | omitted| means c|
|00000390| 6f 75 6e 74 20 6f 6e 6c | 79 20 74 68 65 20 73 65 |ount onl|y the se|
|000003a0| 6c 65 63 74 65 64 20 66 | 72 61 6d 65 2c 20 0a 70 |lected f|rame, .p|
|000003b0| 6c 75 73 20 74 68 65 20 | 6d 69 6e 69 62 75 66 66 |lus the |minibuff|
|000003c0| 65 72 20 69 74 20 75 73 | 65 73 20 28 77 68 69 63 |er it us|es (whic|
|000003d0| 68 20 6d 61 79 20 62 65 | 20 6f 6e 20 61 6e 6f 74 |h may be| on anot|
|000003e0| 68 65 72 20 66 72 61 6d | 65 29 2e 0a 41 4c 4c 2d |her fram|e)..ALL-|
|000003f0| 46 52 41 4d 45 53 20 3d | 20 30 20 6d 65 61 6e 73 |FRAMES =| 0 means|
|00000400| 20 63 6f 75 6e 74 20 77 | 69 6e 64 6f 77 73 20 6f | count w|indows o|
|00000410| 6e 20 61 6c 6c 20 76 69 | 73 69 62 6c 65 20 61 6e |n all vi|sible an|
|00000420| 64 20 69 63 6f 6e 69 66 | 69 65 64 20 66 72 61 6d |d iconif|ied fram|
|00000430| 65 73 2e 0a 49 66 20 41 | 4c 4c 2d 46 52 41 4d 45 |es..If A|LL-FRAME|
|00000440| 53 20 69 73 20 61 6e 79 | 20 6f 74 68 65 72 20 76 |S is any| other v|
|00000450| 61 6c 75 65 2c 20 63 6f | 75 6e 74 20 6f 6e 6c 79 |alue, co|unt only|
|00000460| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 66 72 | the sel|ected fr|
|00000470| 61 6d 65 2e 0a 0a 49 66 | 20 6f 70 74 69 6f 6e 61 |ame...If| optiona|
|00000480| 6c 20 74 68 69 72 64 20 | 61 72 67 75 6d 65 6e 74 |l third |argument|
|00000490| 20 44 45 56 49 43 45 20 | 69 73 20 6e 69 6c 20 6f | DEVICE |is nil o|
|000004a0| 72 20 6f 6d 69 74 74 65 | 64 2c 20 63 6f 75 6e 74 |r omitte|d, count|
|000004b0| 20 66 72 61 6d 65 73 0a | 6f 6e 20 61 6c 6c 20 64 | frames.|on all d|
|000004c0| 65 76 69 63 65 73 2e 0a | 49 66 20 61 20 64 65 76 |evices..|If a dev|
|000004d0| 69 63 65 2c 20 63 6f 75 | 6e 74 20 66 72 61 6d 65 |ice, cou|nt frame|
|000004e0| 73 20 6f 6e 6c 79 20 6f | 6e 20 74 68 61 74 20 64 |s only o|n that d|
|000004f0| 65 76 69 63 65 2e 0a 49 | 66 20 61 20 64 65 76 69 |evice..I|f a devi|
|00000500| 63 65 20 74 79 70 65 2c | 20 63 6f 75 6e 74 20 66 |ce type,| count f|
|00000510| 72 61 6d 65 73 20 6f 6e | 6c 79 20 6f 6e 20 64 65 |rames on|ly on de|
|00000520| 76 69 63 65 73 20 6f 66 | 20 74 68 61 74 20 74 79 |vices of| that ty|
|00000530| 70 65 2e 0a 4f 74 68 65 | 72 77 69 73 65 2c 20 63 |pe..Othe|rwise, c|
|00000540| 6f 75 6e 74 20 66 72 61 | 6d 65 73 20 6f 6e 6c 79 |ount fra|mes only|
|00000550| 20 6f 6e 20 74 68 65 20 | 73 65 6c 65 63 74 65 64 | on the |selected|
|00000560| 20 64 65 76 69 63 65 2e | 1f 0a 28 64 65 66 61 6c | device.|..(defal|
|00000570| 69 61 73 20 27 6f 6e 65 | 2d 77 69 6e 64 6f 77 2d |ias 'one|-window-|
|00000580| 70 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |p #[(&op|tional n|
|00000590| 6f 6d 69 6e 69 20 61 6c | 6c 2d 66 72 61 6d 65 73 |omini al|l-frames|
|000005a0| 20 64 65 76 69 63 65 29 | 20 22 c0 20 19 5c 6e ab | device)| ". .\n.|
|000005b0| 8a 09 c3 20 61 ab 84 c4 | 09 21 11 09 c4 09 5c 6e |... a...|.!....\n|
|000005c0| ad 81 c5 0e 06 0e 07 24 | 29 61 87 22 20 5b 73 65 |.......$|)a." [se|
|000005d0| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 62 61 |lected-w|indow ba|
|000005e0| 73 65 2d 77 69 6e 64 6f | 77 20 6e 6f 6d 69 6e 69 |se-windo|w nomini|
|000005f0| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 77 69 6e 64 | minibuf|fer-wind|
|00000600| 6f 77 20 6e 65 78 74 2d | 77 69 6e 64 6f 77 20 61 |ow next-|window a|
|00000610| 72 67 20 61 6c 6c 2d 66 | 72 61 6d 65 73 20 64 65 |rg all-f|rames de|
|00000620| 76 69 63 65 5d 20 36 20 | 28 23 24 20 2e 20 35 39 |vice] 6 |(#$ . 59|
|00000630| 39 29 5d 29 0a 23 40 31 | 33 37 38 20 43 79 63 6c |9)]).#@1|378 Cycl|
|00000640| 65 20 74 68 72 6f 75 67 | 68 20 61 6c 6c 20 76 69 |e throug|h all vi|
|00000650| 73 69 62 6c 65 20 77 69 | 6e 64 6f 77 73 2c 20 63 |sible wi|ndows, c|
|00000660| 61 6c 6c 69 6e 67 20 50 | 52 4f 43 20 66 6f 72 20 |alling P|ROC for |
|00000670| 65 61 63 68 20 6f 6e 65 | 2e 0a 50 52 4f 43 20 69 |each one|..PROC i|
|00000680| 73 20 63 61 6c 6c 65 64 | 20 77 69 74 68 20 61 20 |s called| with a |
|00000690| 77 69 6e 64 6f 77 20 61 | 73 20 61 72 67 75 6d 65 |window a|s argume|
|000006a0| 6e 74 2e 0a 0a 4f 70 74 | 69 6f 6e 61 6c 20 73 65 |nt...Opt|ional se|
|000006b0| 63 6f 6e 64 20 61 72 67 | 20 4d 49 4e 49 42 55 46 |cond arg| MINIBUF|
|000006c0| 20 74 20 6d 65 61 6e 73 | 20 63 6f 75 6e 74 20 74 | t means| count t|
|000006d0| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 20 77 69 |he minib|uffer wi|
|000006e0| 6e 64 6f 77 20 65 76 65 | 6e 0a 69 66 20 6e 6f 74 |ndow eve|n.if not|
|000006f0| 20 61 63 74 69 76 65 2e | 20 20 4d 49 4e 49 42 55 | active.| MINIBU|
|00000700| 46 20 6e 69 6c 20 6f 72 | 20 6f 6d 69 74 74 65 64 |F nil or| omitted|
|00000710| 20 6d 65 61 6e 73 20 63 | 6f 75 6e 74 20 74 68 65 | means c|ount the|
|00000720| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 69 66 66 0a | minibuf|fer iff.|
|00000730| 69 74 20 69 73 20 61 63 | 74 69 76 65 2e 20 20 4d |it is ac|tive. M|
|00000740| 49 4e 49 42 55 46 20 6e | 65 69 74 68 65 72 20 74 |INIBUF n|either t|
|00000750| 20 6e 6f 72 20 6e 69 6c | 20 6d 65 61 6e 73 20 6e | nor nil| means n|
|00000760| 6f 74 20 74 6f 20 63 6f | 75 6e 74 20 74 68 65 0a |ot to co|unt the.|
|00000770| 6d 69 6e 69 62 75 66 66 | 65 72 20 65 76 65 6e 20 |minibuff|er even |
|00000780| 69 66 20 69 74 20 69 73 | 20 61 63 74 69 76 65 2e |if it is| active.|
|00000790| 0a 0a 53 65 76 65 72 61 | 6c 20 66 72 61 6d 65 73 |..Severa|l frames|
|000007a0| 20 6d 61 79 20 73 68 61 | 72 65 20 61 20 73 69 6e | may sha|re a sin|
|000007b0| 67 6c 65 20 6d 69 6e 69 | 62 75 66 66 65 72 3b 20 |gle mini|buffer; |
|000007c0| 69 66 20 74 68 65 20 6d | 69 6e 69 62 75 66 66 65 |if the m|inibuffe|
|000007d0| 72 0a 63 6f 75 6e 74 73 | 2c 20 61 6c 6c 20 77 69 |r.counts|, all wi|
|000007e0| 6e 64 6f 77 73 20 6f 6e | 20 61 6c 6c 20 66 72 61 |ndows on| all fra|
|000007f0| 6d 65 73 20 74 68 61 74 | 20 73 68 61 72 65 20 74 |mes that| share t|
|00000800| 68 61 74 20 6d 69 6e 69 | 62 75 66 66 65 72 20 63 |hat mini|buffer c|
|00000810| 6f 75 6e 74 0a 74 6f 6f | 2e 20 20 54 68 65 72 65 |ount.too|. There|
|00000820| 66 6f 72 65 2c 20 77 68 | 65 6e 20 61 20 73 65 70 |fore, wh|en a sep|
|00000830| 61 72 61 74 65 20 6d 69 | 6e 69 62 75 66 66 65 72 |arate mi|nibuffer|
|00000840| 20 66 72 61 6d 65 20 69 | 73 20 61 63 74 69 76 65 | frame i|s active|
|00000850| 2c 0a 60 77 61 6c 6b 2d | 77 69 6e 64 6f 77 73 27 |,.`walk-|windows'|
|00000860| 20 69 6e 63 6c 75 64 65 | 73 20 74 68 65 20 77 69 | include|s the wi|
|00000870| 6e 64 6f 77 73 20 69 6e | 20 74 68 65 20 66 72 61 |ndows in| the fra|
|00000880| 6d 65 20 66 72 6f 6d 20 | 77 68 69 63 68 20 79 6f |me from |which yo|
|00000890| 75 0a 65 6e 74 65 72 65 | 64 20 74 68 65 20 6d 69 |u.entere|d the mi|
|000008a0| 6e 69 62 75 66 66 65 72 | 2c 20 61 73 20 77 65 6c |nibuffer|, as wel|
|000008b0| 6c 20 61 73 20 74 68 65 | 20 6d 69 6e 69 62 75 66 |l as the| minibuf|
|000008c0| 66 65 72 20 77 69 6e 64 | 6f 77 2e 20 20 42 75 74 |fer wind|ow. But|
|000008d0| 20 69 66 20 74 68 65 0a | 6d 69 6e 69 62 75 66 66 | if the.|minibuff|
|000008e0| 65 72 20 64 6f 65 73 20 | 6e 6f 74 20 63 6f 75 6e |er does |not coun|
|000008f0| 74 2c 20 6f 6e 6c 79 20 | 77 69 6e 64 6f 77 73 20 |t, only |windows |
|00000900| 66 72 6f 6d 20 57 49 4e | 44 4f 57 27 73 20 66 72 |from WIN|DOW's fr|
|00000910| 61 6d 65 20 63 6f 75 6e | 74 2e 0a 0a 41 4c 4c 2d |ame coun|t...ALL-|
|00000920| 46 52 41 4d 45 53 20 69 | 73 20 74 68 65 20 6f 70 |FRAMES i|s the op|
|00000930| 74 69 6f 6e 61 6c 20 74 | 68 69 72 64 20 61 72 67 |tional t|hird arg|
|00000940| 75 6d 65 6e 74 2e 0a 41 | 4c 4c 2d 46 52 41 4d 45 |ument..A|LL-FRAME|
|00000950| 53 20 6e 69 6c 20 6f 72 | 20 6f 6d 69 74 74 65 64 |S nil or| omitted|
|00000960| 20 6d 65 61 6e 73 20 63 | 79 63 6c 65 20 77 69 74 | means c|ycle wit|
|00000970| 68 69 6e 20 74 68 65 20 | 66 72 61 6d 65 73 20 61 |hin the |frames a|
|00000980| 73 20 73 70 65 63 69 66 | 69 65 64 20 61 62 6f 76 |s specif|ied abov|
|00000990| 65 2e 0a 41 4c 4c 2d 46 | 52 41 4d 45 53 20 3d 20 |e..ALL-F|RAMES = |
|000009a0| 60 76 69 73 69 62 6c 65 | 27 20 6d 65 61 6e 73 20 |`visible|' means |
|000009b0| 69 6e 63 6c 75 64 65 20 | 77 69 6e 64 6f 77 73 20 |include |windows |
|000009c0| 6f 6e 20 61 6c 6c 20 76 | 69 73 69 62 6c 65 20 66 |on all v|isible f|
|000009d0| 72 61 6d 65 73 2e 0a 41 | 4c 4c 2d 46 52 41 4d 45 |rames..A|LL-FRAME|
|000009e0| 53 20 3d 20 30 20 6d 65 | 61 6e 73 20 69 6e 63 6c |S = 0 me|ans incl|
|000009f0| 75 64 65 20 77 69 6e 64 | 6f 77 73 20 6f 6e 20 61 |ude wind|ows on a|
|00000a00| 6c 6c 20 76 69 73 69 62 | 6c 65 20 61 6e 64 20 69 |ll visib|le and i|
|00000a10| 63 6f 6e 69 66 69 65 64 | 20 66 72 61 6d 65 73 2e |conified| frames.|
|00000a20| 0a 41 4c 4c 2d 46 52 41 | 4d 45 53 20 3d 20 74 20 |.ALL-FRA|MES = t |
|00000a30| 6d 65 61 6e 73 20 69 6e | 63 6c 75 64 65 20 77 69 |means in|clude wi|
|00000a40| 6e 64 6f 77 73 20 6f 6e | 20 61 6c 6c 20 66 72 61 |ndows on| all fra|
|00000a50| 6d 65 73 20 69 6e 63 6c | 75 64 69 6e 67 20 69 6e |mes incl|uding in|
|00000a60| 76 69 73 69 62 6c 65 20 | 66 72 61 6d 65 73 2e 0a |visible |frames..|
|00000a70| 41 6e 79 74 68 69 6e 67 | 20 65 6c 73 65 20 6d 65 |Anything| else me|
|00000a80| 61 6e 73 20 72 65 73 74 | 72 69 63 74 20 74 6f 20 |ans rest|rict to |
|00000a90| 57 49 4e 44 4f 57 27 73 | 20 66 72 61 6d 65 2e 0a |WINDOW's| frame..|
|00000aa0| 0a 49 66 20 6f 70 74 69 | 6f 6e 61 6c 20 66 6f 75 |.If opti|onal fou|
|00000ab0| 72 74 68 20 61 72 67 75 | 6d 65 6e 74 20 44 45 56 |rth argu|ment DEV|
|00000ac0| 49 43 45 20 69 73 20 6e | 69 6c 20 6f 72 20 6f 6d |ICE is n|il or om|
|00000ad0| 69 74 74 65 64 2c 20 69 | 6e 63 6c 75 64 65 20 66 |itted, i|nclude f|
|00000ae0| 72 61 6d 65 73 0a 6f 6e | 20 61 6c 6c 20 64 65 76 |rames.on| all dev|
|00000af0| 69 63 65 73 2e 0a 49 66 | 20 61 20 64 65 76 69 63 |ices..If| a devic|
|00000b00| 65 2c 20 69 6e 63 6c 75 | 64 65 20 66 72 61 6d 65 |e, inclu|de frame|
|00000b10| 73 20 6f 6e 6c 79 20 6f | 6e 20 74 68 61 74 20 64 |s only o|n that d|
|00000b20| 65 76 69 63 65 2e 0a 49 | 66 20 61 20 64 65 76 69 |evice..I|f a devi|
|00000b30| 63 65 20 74 79 70 65 2c | 20 69 6e 63 6c 75 64 65 |ce type,| include|
|00000b40| 20 66 72 61 6d 65 73 20 | 6f 6e 6c 79 20 6f 6e 20 | frames |only on |
|00000b50| 64 65 76 69 63 65 73 20 | 6f 66 20 74 68 61 74 20 |devices |of that |
|00000b60| 74 79 70 65 2e 0a 4f 74 | 68 65 72 77 69 73 65 2c |type..Ot|herwise,|
|00000b70| 20 69 6e 63 6c 75 64 65 | 20 66 72 61 6d 65 73 20 | include| frames |
|00000b80| 6f 6e 6c 79 20 6f 6e 20 | 74 68 65 20 73 65 6c 65 |only on |the sele|
|00000b90| 63 74 65 64 20 64 65 76 | 69 63 65 2e 1f 0a 28 64 |cted dev|ice...(d|
|00000ba0| 65 66 61 6c 69 61 73 20 | 27 77 61 6c 6b 2d 77 69 |efalias |'walk-wi|
|00000bb0| 6e 64 6f 77 73 20 23 5b | 28 70 72 6f 63 20 26 6f |ndows #[|(proc &o|
|00000bc0| 70 74 69 6f 6e 61 6c 20 | 6d 69 6e 69 62 75 66 20 |ptional |minibuf |
|00000bd0| 61 6c 6c 2d 66 72 61 6d | 65 73 20 64 65 76 69 63 |all-fram|es devic|
|00000be0| 65 29 20 22 c0 c1 20 21 | ab 82 c2 13 c1 20 89 1c |e) ".. !|..... ..|
|00000bf0| 1d c6 0d 0b 0e 07 0e 08 | 24 15 0e 09 0d 21 88 0d |........|$....!..|
|00000c00| 0c 61 3f ad 82 aa 6a 2a | 87 22 20 5b 77 69 6e 64 |.a?...j*|." [wind|
|00000c10| 6f 77 2d 6d 69 6e 69 62 | 75 66 66 65 72 2d 70 20 |ow-minib|uffer-p |
|00000c20| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00000c30| 74 20 6d 69 6e 69 62 75 | 66 20 77 61 6c 6b 2d 77 |t minibu|f walk-w|
|00000c40| 69 6e 64 6f 77 73 2d 73 | 74 61 72 74 20 77 61 6c |indows-s|tart wal|
|00000c50| 6b 2d 77 69 6e 64 6f 77 | 73 2d 63 75 72 72 65 6e |k-window|s-curren|
|00000c60| 74 20 6e 65 78 74 2d 77 | 69 6e 64 6f 77 20 61 6c |t next-w|indow al|
|00000c70| 6c 2d 66 72 61 6d 65 73 | 20 64 65 76 69 63 65 20 |l-frames| device |
|00000c80| 70 72 6f 63 5d 20 36 20 | 28 23 24 20 2e 20 31 35 |proc] 6 |(#$ . 15|
|00000c90| 39 36 29 5d 29 0a 23 40 | 35 37 20 52 65 74 75 72 |96)]).#@|57 Retur|
|00000ca0| 6e 20 74 20 69 66 20 57 | 49 4e 44 4f 57 20 28 61 |n t if W|INDOW (a|
|00000cb0| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 77 69 6e 64 | minibuf|fer wind|
|00000cc0| 6f 77 29 20 69 73 20 6e | 6f 77 20 61 63 74 69 76 |ow) is n|ow activ|
|00000cd0| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |e...(def|alias 'm|
|00000ce0| 69 6e 69 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |inibuffe|r-window|
|00000cf0| 2d 61 63 74 69 76 65 2d | 70 20 23 5b 28 77 69 6e |-active-|p #[(win|
|00000d00| 64 6f 77 29 20 22 08 c1 | 20 61 87 22 20 5b 77 69 |dow) "..| a." [wi|
|00000d10| 6e 64 6f 77 20 61 63 74 | 69 76 65 2d 6d 69 6e 69 |ndow act|ive-mini|
|00000d20| 62 75 66 66 65 72 2d 77 | 69 6e 64 6f 77 5d 20 32 |buffer-w|indow] 2|
|00000d30| 20 28 23 24 20 2e 20 33 | 32 32 37 29 5d 29 0a 23 | (#$ . 3|227)]).#|
|00000d40| 40 36 39 20 45 78 65 63 | 75 74 65 20 42 4f 44 59 |@69 Exec|ute BODY|
|00000d50| 2c 20 74 68 65 6e 20 73 | 65 6c 65 63 74 20 74 68 |, then s|elect th|
|00000d60| 65 20 77 69 6e 64 6f 77 | 20 74 68 61 74 20 77 61 |e window| that wa|
|00000d70| 73 20 73 65 6c 65 63 74 | 65 64 20 62 65 66 6f 72 |s select|ed befor|
|00000d80| 65 20 42 4f 44 59 2e 1f | 0a 28 64 65 66 61 6c 69 |e BODY..|.(defali|
|00000d90| 61 73 20 27 73 61 76 65 | 2d 73 65 6c 65 63 74 65 |as 'save|-selecte|
|00000da0| 64 2d 77 69 6e 64 6f 77 | 20 27 28 6d 61 63 72 6f |d-window| '(macro|
|00000db0| 20 2e 20 23 5b 28 26 72 | 65 73 74 20 62 6f 64 79 | . #[(&r|est body|
|00000dc0| 29 20 22 c0 c1 c2 c3 0c | 42 c5 c6 c7 44 c8 c7 44 |) ".....|B...D..D|
|00000dd0| 45 45 45 87 22 20 5b 6c | 65 74 20 28 28 73 61 76 |EEE." [l|et ((sav|
|00000de0| 65 2d 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |e-select|ed-windo|
|00000df0| 77 2d 77 69 6e 64 6f 77 | 20 28 73 65 6c 65 63 74 |w-window| (select|
|00000e00| 65 64 2d 77 69 6e 64 6f | 77 29 29 29 20 75 6e 77 |ed-windo|w))) unw|
|00000e10| 69 6e 64 2d 70 72 6f 74 | 65 63 74 20 70 72 6f 67 |ind-prot|ect prog|
|00000e20| 6e 20 62 6f 64 79 20 61 | 6e 64 20 77 69 6e 64 6f |n body a|nd windo|
|00000e30| 77 2d 6c 69 76 65 2d 70 | 20 73 61 76 65 2d 73 65 |w-live-p| save-se|
|00000e40| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 2d 77 69 |lected-w|indow-wi|
|00000e50| 6e 64 6f 77 20 73 65 6c | 65 63 74 2d 77 69 6e 64 |ndow sel|ect-wind|
|00000e60| 6f 77 5d 20 38 20 28 23 | 24 20 2e 20 33 33 39 36 |ow] 8 (#|$ . 3396|
|00000e70| 29 5d 29 29 0a 23 40 31 | 32 30 20 52 65 74 75 72 |)])).#@1|20 Retur|
|00000e80| 6e 73 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ns the n|umber of|
|00000e90| 20 76 69 73 69 62 6c 65 | 20 77 69 6e 64 6f 77 73 | visible| windows|
|00000ea0| 2e 0a 4f 70 74 69 6f 6e | 61 6c 20 61 72 67 20 4d |..Option|al arg M|
|00000eb0| 49 4e 49 42 55 46 20 6e | 6f 6e 2d 6e 69 6c 20 6d |INIBUF n|on-nil m|
|00000ec0| 65 61 6e 73 20 63 6f 75 | 6e 74 20 74 68 65 20 6d |eans cou|nt the m|
|00000ed0| 69 6e 69 62 75 66 66 65 | 72 0a 65 76 65 6e 20 69 |inibuffe|r.even i|
|00000ee0| 66 20 69 74 20 69 73 20 | 69 6e 61 63 74 69 76 65 |f it is |inactive|
|00000ef0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |...(defa|lias 'co|
|00000f00| 75 6e 74 2d 77 69 6e 64 | 6f 77 73 20 23 5b 28 26 |unt-wind|ows #[(&|
|00000f10| 6f 70 74 69 6f 6e 61 6c | 20 6d 69 6e 69 62 75 66 |optional| minibuf|
|00000f20| 29 20 22 c0 19 c2 c3 0c | 5c 22 88 09 29 87 22 20 |) ".....|\"..)." |
|00000f30| 5b 30 20 63 6f 75 6e 74 | 20 77 61 6c 6b 2d 77 69 |[0 count| walk-wi|
|00000f40| 6e 64 6f 77 73 20 23 5b | 28 77 29 20 22 08 54 89 |ndows #[|(w) ".T.|
|00000f50| 10 87 22 20 5b 63 6f 75 | 6e 74 5d 20 32 5d 20 6d |.." [cou|nt] 2] m|
|00000f60| 69 6e 69 62 75 66 5d 20 | 33 20 28 23 24 20 2e 20 |inibuf] |3 (#$ . |
|00000f70| 33 37 30 37 29 5d 29 0a | 23 40 36 30 20 4d 61 6b |3707)]).|#@60 Mak|
|00000f80| 65 73 20 61 6c 6c 20 76 | 69 73 69 62 6c 65 20 77 |es all v|isible w|
|00000f90| 69 6e 64 6f 77 73 20 74 | 68 65 20 73 61 6d 65 20 |indows t|he same |
|00000fa0| 68 65 69 67 68 74 20 28 | 61 70 70 72 6f 78 69 6d |height (|approxim|
|00000fb0| 61 74 65 6c 79 29 2e 1f | 0a 28 64 65 66 61 6c 69 |ately)..|.(defali|
|00000fc0| 61 73 20 27 62 61 6c 61 | 6e 63 65 2d 77 69 6e 64 |as 'bala|nce-wind|
|00000fd0| 6f 77 73 20 23 5b 6e 69 | 6c 20 22 c0 c1 89 89 1a |ows #[ni|l ".....|
|00000fe0| 1b 1c 1d c6 8b 88 c7 c8 | 20 21 0d a5 12 c9 ca cb |........| !......|
|00000ff0| 5c 22 88 c9 cc cb 5c 22 | 2c 87 22 20 5b 2d 31 20 |\"....\"|,." [-1 |
|00001000| 6e 69 6c 20 73 69 7a 65 | 20 6e 65 77 73 69 7a 65 |nil size| newsize|
|00001010| 73 20 6c 65 76 65 6c 73 | 20 63 6f 75 6e 74 20 28 |s levels| count (|
|00001020| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 1a 1b |(byte-co|de "....|
|00001030| c4 c5 c6 5c 22 88 c7 0b | c8 5c 22 89 13 ab 9f 0b |...\"...|.\".....|
|00001040| 40 5c 6e 54 56 ab 88 0b | 40 12 0e 09 54 16 09 0b |@\nTV...|@...T...|
|00001050| 40 0e 09 42 0e 5c 6e 42 | 16 5c 6e 0b 41 89 13 ac |@..B.\nB|.\n.A...|
|00001060| 61 0e 09 54 16 09 2a c0 | 87 22 20 5b 6e 69 6c 20 |a..T..*.|." [nil |
|00001070| 2d 32 20 70 72 65 76 2d | 74 6f 70 20 74 6f 70 73 |-2 prev-|top tops|
|00001080| 20 77 61 6c 6b 2d 77 69 | 6e 64 6f 77 73 20 23 5b | walk-wi|ndows #[|
|00001090| 28 77 29 20 22 c0 09 21 | 41 40 5c 6e 42 89 12 87 |(w) "..!|A@\nB...|
|000010a0| 22 20 5b 77 69 6e 64 6f | 77 2d 70 69 78 65 6c 2d |" [windo|w-pixel-|
|000010b0| 65 64 67 65 73 20 77 20 | 74 6f 70 73 5d 20 32 5d |edges w |tops] 2]|
|000010c0| 20 6e 6f 6d 69 6e 69 20 | 73 6f 72 74 20 3c 20 63 | nomini |sort < c|
|000010d0| 6f 75 6e 74 20 6c 65 76 | 65 6c 73 5d 20 34 29 29 |ount lev|els] 4))|
|000010e0| 20 77 69 6e 64 6f 77 2d | 70 69 78 65 6c 2d 68 65 | window-|pixel-he|
|000010f0| 69 67 68 74 20 66 72 61 | 6d 65 2d 72 6f 6f 74 2d |ight fra|me-root-|
|00001100| 77 69 6e 64 6f 77 20 77 | 61 6c 6b 2d 77 69 6e 64 |window w|alk-wind|
|00001110| 6f 77 73 20 23 5b 28 77 | 29 20 22 c0 09 21 88 c2 |ows #[(w|) "..!..|
|00001120| 20 41 40 0b b7 41 c4 20 | c2 20 41 40 5c 5c 0b b7 | A@..A. |. A@\\..|
|00001130| 41 ae 81 0d 1e 06 1e 07 | 09 0e 08 0e 06 0e 07 5a |A.......|.......Z|
|00001140| 5f 42 0e 09 42 89 16 09 | 2a 87 22 20 5b 73 65 6c |_B..B...|*." [sel|
|00001150| 65 63 74 2d 77 69 6e 64 | 6f 77 20 77 20 77 69 6e |ect-wind|ow w win|
|00001160| 64 6f 77 2d 70 69 78 65 | 6c 2d 65 64 67 65 73 20 |dow-pixe|l-edges |
|00001170| 6c 65 76 65 6c 73 20 77 | 69 6e 64 6f 77 2d 70 69 |levels w|indow-pi|
|00001180| 78 65 6c 2d 68 65 69 67 | 68 74 20 63 6f 75 6e 74 |xel-heig|ht count|
|00001190| 20 6e 65 77 62 6f 74 20 | 6e 65 77 74 6f 70 20 73 | newbot |newtop s|
|000011a0| 69 7a 65 20 6e 65 77 73 | 69 7a 65 73 5d 20 34 5d |ize news|izes] 4]|
|000011b0| 20 6e 6f 6d 69 6e 69 20 | 23 5b 28 77 29 20 22 c0 | nomini |#[(w) ".|
|000011c0| 09 21 88 09 5c 6e b7 41 | 1b c4 0b c5 20 5a c6 c7 |.!..\n.A|.... Z..|
|000011d0| 21 a5 21 29 87 22 20 5b | 73 65 6c 65 63 74 2d 77 |!.!)." [|select-w|
|000011e0| 69 6e 64 6f 77 20 77 20 | 6e 65 77 73 69 7a 65 73 |indow w |newsizes|
|000011f0| 20 6e 65 77 73 69 7a 65 | 20 65 6e 6c 61 72 67 65 | newsize| enlarge|
|00001200| 2d 77 69 6e 64 6f 77 20 | 77 69 6e 64 6f 77 2d 70 |-window |window-p|
|00001210| 69 78 65 6c 2d 68 65 69 | 67 68 74 20 66 61 63 65 |ixel-hei|ght face|
|00001220| 2d 68 65 69 67 68 74 20 | 64 65 66 61 75 6c 74 5d |-height |default]|
|00001230| 20 34 5d 5d 20 34 20 28 | 23 24 20 2e 20 33 39 36 | 4]] 4 (|#$ . 396|
|00001240| 35 29 20 6e 69 6c 5d 29 | 0a 28 63 75 73 74 6f 6d |5) nil])|.(custom|
|00001250| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00001260| 65 20 27 73 70 6c 69 74 | 2d 77 69 6e 64 6f 77 2d |e 'split|-window-|
|00001270| 6b 65 65 70 2d 70 6f 69 | 6e 74 20 27 74 20 22 2a |keep-poi|nt 't "*|
|00001280| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 73 70 6c 69 |If non-n|il, spli|
|00001290| 74 20 77 69 6e 64 6f 77 | 73 20 6b 65 65 70 73 20 |t window|s keeps |
|000012a0| 74 68 65 20 6f 72 69 67 | 69 6e 61 6c 20 70 6f 69 |the orig|inal poi|
|000012b0| 6e 74 20 69 6e 20 62 6f | 74 68 20 63 68 69 6c 64 |nt in bo|th child|
|000012c0| 72 65 6e 2e 5c 6e 54 68 | 69 73 20 69 73 20 6f 66 |ren.\nTh|is is of|
|000012d0| 74 65 6e 20 6d 6f 72 65 | 20 63 6f 6e 76 65 6e 69 |ten more| conveni|
|000012e0| 65 6e 74 20 66 6f 72 20 | 65 64 69 74 69 6e 67 2e |ent for |editing.|
|000012f0| 5c 6e 49 66 20 6e 69 6c | 2c 20 61 64 6a 75 73 74 |\nIf nil|, adjust|
|00001300| 20 70 6f 69 6e 74 20 69 | 6e 20 65 61 63 68 20 6f | point i|n each o|
|00001310| 66 20 74 68 65 20 74 77 | 6f 20 77 69 6e 64 6f 77 |f the tw|o window|
|00001320| 73 20 74 6f 20 6d 69 6e | 69 6d 69 7a 65 20 72 65 |s to min|imize re|
|00001330| 64 69 73 70 6c 61 79 2e | 5c 6e 54 68 69 73 20 69 |display.|\nThis i|
|00001340| 73 20 63 6f 6e 76 65 6e | 69 65 6e 74 20 6f 6e 20 |s conven|ient on |
|00001350| 73 6c 6f 77 20 74 65 72 | 6d 69 6e 61 6c 73 2c 20 |slow ter|minals, |
|00001360| 62 75 74 20 70 6f 69 6e | 74 20 63 61 6e 20 6d 6f |but poin|t can mo|
|00001370| 76 65 20 73 74 72 61 6e | 67 65 6c 79 2e 22 20 3a |ve stran|gely." :|
|00001380| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 20 3a 67 |type 'bo|olean :g|
|00001390| 72 6f 75 70 20 27 77 69 | 6e 64 6f 77 73 29 0a 23 |roup 'wi|ndows).#|
|000013a0| 40 38 30 36 20 53 70 6c | 69 74 20 63 75 72 72 65 |@806 Spl|it curre|
|000013b0| 6e 74 20 77 69 6e 64 6f | 77 20 69 6e 74 6f 20 74 |nt windo|w into t|
|000013c0| 77 6f 20 77 69 6e 64 6f | 77 73 2c 20 6f 6e 65 20 |wo windo|ws, one |
|000013d0| 61 62 6f 76 65 20 74 68 | 65 20 6f 74 68 65 72 2e |above th|e other.|
|000013e0| 0a 54 68 65 20 75 70 70 | 65 72 6d 6f 73 74 20 77 |.The upp|ermost w|
|000013f0| 69 6e 64 6f 77 20 67 65 | 74 73 20 41 52 47 20 6c |indow ge|ts ARG l|
|00001400| 69 6e 65 73 20 61 6e 64 | 20 74 68 65 20 6f 74 68 |ines and| the oth|
|00001410| 65 72 20 67 65 74 73 20 | 74 68 65 20 72 65 73 74 |er gets |the rest|
|00001420| 2e 0a 4e 65 67 61 74 69 | 76 65 20 61 72 67 20 6d |..Negati|ve arg m|
|00001430| 65 61 6e 73 20 73 65 6c | 65 63 74 20 74 68 65 20 |eans sel|ect the |
|00001440| 73 69 7a 65 20 6f 66 20 | 74 68 65 20 6c 6f 77 65 |size of |the lowe|
|00001450| 72 6d 6f 73 74 20 77 69 | 6e 64 6f 77 20 69 6e 73 |rmost wi|ndow ins|
|00001460| 74 65 61 64 2e 0a 57 69 | 74 68 20 6e 6f 20 61 72 |tead..Wi|th no ar|
|00001470| 67 75 6d 65 6e 74 2c 20 | 73 70 6c 69 74 20 65 71 |gument, |split eq|
|00001480| 75 61 6c 6c 79 20 6f 72 | 20 63 6c 6f 73 65 20 74 |ually or| close t|
|00001490| 6f 20 69 74 2e 0a 42 6f | 74 68 20 77 69 6e 64 6f |o it..Bo|th windo|
|000014a0| 77 73 20 64 69 73 70 6c | 61 79 20 74 68 65 20 73 |ws displ|ay the s|
|000014b0| 61 6d 65 20 62 75 66 66 | 65 72 20 6e 6f 77 20 63 |ame buff|er now c|
|000014c0| 75 72 72 65 6e 74 2e 0a | 0a 49 66 20 74 68 65 20 |urrent..|.If the |
|000014d0| 76 61 72 69 61 62 6c 65 | 20 73 70 6c 69 74 2d 77 |variable| split-w|
|000014e0| 69 6e 64 6f 77 2d 6b 65 | 65 70 2d 70 6f 69 6e 74 |indow-ke|ep-point|
|000014f0| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 62 6f 74 | is non-|nil, bot|
|00001500| 68 20 6e 65 77 20 77 69 | 6e 64 6f 77 73 0a 77 69 |h new wi|ndows.wi|
|00001510| 6c 6c 20 67 65 74 20 74 | 68 65 20 73 61 6d 65 20 |ll get t|he same |
|00001520| 76 61 6c 75 65 20 6f 66 | 20 70 6f 69 6e 74 20 61 |value of| point a|
|00001530| 73 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 77 69 |s the cu|rrent wi|
|00001540| 6e 64 6f 77 2e 20 20 54 | 68 69 73 20 69 73 20 6f |ndow. T|his is o|
|00001550| 66 74 65 6e 0a 6d 6f 72 | 65 20 63 6f 6e 76 65 6e |ften.mor|e conven|
|00001560| 69 65 6e 74 20 66 6f 72 | 20 65 64 69 74 69 6e 67 |ient for| editing|
|00001570| 2e 0a 0a 4f 74 68 65 72 | 77 69 73 65 2c 20 77 65 |...Other|wise, we|
|00001580| 20 63 68 6f 73 65 20 77 | 69 6e 64 6f 77 20 73 74 | chose w|indow st|
|00001590| 61 72 74 73 20 73 6f 20 | 61 73 20 74 6f 20 6d 69 |arts so |as to mi|
|000015a0| 6e 69 6d 69 7a 65 20 74 | 68 65 20 61 6d 6f 75 6e |nimize t|he amoun|
|000015b0| 74 20 6f 66 0a 72 65 64 | 69 73 70 6c 61 79 3b 20 |t of.red|isplay; |
|000015c0| 74 68 69 73 20 69 73 20 | 63 6f 6e 76 65 6e 69 65 |this is |convenie|
|000015d0| 6e 74 20 6f 6e 20 73 6c | 6f 77 20 74 65 72 6d 69 |nt on sl|ow termi|
|000015e0| 6e 61 6c 73 2e 20 20 54 | 68 65 20 6e 65 77 20 73 |nals. T|he new s|
|000015f0| 65 6c 65 63 74 65 64 0a | 77 69 6e 64 6f 77 20 69 |elected.|window i|
|00001600| 73 20 74 68 65 20 6f 6e | 65 20 74 68 61 74 20 74 |s the on|e that t|
|00001610| 68 65 20 63 75 72 72 65 | 6e 74 20 76 61 6c 75 65 |he curre|nt value|
|00001620| 20 6f 66 20 70 6f 69 6e | 74 20 61 70 70 65 61 72 | of poin|t appear|
|00001630| 73 20 69 6e 2e 20 20 54 | 68 65 0a 76 61 6c 75 65 |s in. T|he.value|
|00001640| 20 6f 66 20 70 6f 69 6e | 74 20 63 61 6e 20 63 68 | of poin|t can ch|
|00001650| 61 6e 67 65 20 69 66 20 | 74 68 65 20 74 65 78 74 |ange if |the text|
|00001660| 20 61 72 6f 75 6e 64 20 | 70 6f 69 6e 74 20 69 73 | around |point is|
|00001670| 20 68 69 64 64 65 6e 20 | 62 79 20 74 68 65 0a 6e | hidden |by the.n|
|00001680| 65 77 20 6d 6f 64 65 20 | 6c 69 6e 65 2e 0a 0a 50 |ew mode |line...P|
|00001690| 72 6f 67 72 61 6d 73 20 | 73 68 6f 75 6c 64 20 70 |rograms |should p|
|000016a0| 72 6f 62 61 62 6c 79 20 | 75 73 65 20 73 70 6c 69 |robably |use spli|
|000016b0| 74 2d 77 69 6e 64 6f 77 | 20 69 6e 73 74 65 61 64 |t-window| instead|
|000016c0| 20 6f 66 20 74 68 69 73 | 2e 1f 0a 28 64 65 66 61 | of this|...(defa|
|000016d0| 6c 69 61 73 20 27 73 70 | 6c 69 74 2d 77 69 6e 64 |lias 'sp|lit-wind|
|000016e0| 6f 77 2d 76 65 72 74 69 | 63 61 6c 6c 79 20 23 5b |ow-verti|cally #[|
|000016f0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00001700| 22 c0 20 60 09 ad 83 c2 | 09 21 c3 89 89 89 1c 1d |". `....|.!......|
|00001710| 1e 06 1e 07 1e 08 1e 09 | 1e 5c 6e 0e 08 ab 8d 0e |........|.\n.....|
|00001720| 08 cb 57 ab 87 cc 20 0e | 08 5c 5c 16 08 cd c3 0e |..W... .|.\\.....|
|00001730| 08 5c 22 16 06 0e 0e ac | db 8a cf 20 71 88 d0 20 |.\".....|... q.. |
|00001740| 62 88 d1 cc 20 21 14 d2 | 0e 06 60 5c 22 88 60 d3 |b... !..|..`\".`.|
|00001750| 0e 06 21 56 ab 86 d4 0e | 06 60 5c 22 88 0c cc 20 |..!V....|.`\"... |
|00001760| 55 ab 87 d5 16 07 d1 d6 | 21 88 60 15 29 0e 07 ab |U.......|!.`.)...|
|00001770| 8c 0d 60 58 ab 87 d4 0e | 5c 6e 0d 53 5c 22 88 0e |..`X....|\n.S\"..|
|00001780| 07 ab 95 d0 0e 06 21 0e | 09 58 ab 8c d4 0e 06 0e |......!.|.X......|
|00001790| 09 5c 22 88 d7 0e 06 21 | 88 0e 06 2e 07 87 22 20 |.\"....!|......" |
|000017a0| 5b 73 65 6c 65 63 74 65 | 64 2d 77 69 6e 64 6f 77 |[selecte|d-window|
|000017b0| 20 61 72 67 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 | arg pre|fix-nume|
|000017c0| 72 69 63 2d 76 61 6c 75 | 65 20 6e 69 6c 20 6d 6f |ric-valu|e nil mo|
|000017d0| 76 65 64 20 62 6f 74 74 | 6f 6d 20 6e 65 77 2d 77 |ved bott|om new-w|
|000017e0| 20 77 69 6e 64 6f 77 2d | 66 75 6c 6c 2d 70 20 73 | window-|full-p s|
|000017f0| 69 7a 65 20 6f 6c 64 2d | 70 6f 69 6e 74 20 6f 6c |ize old-|point ol|
|00001800| 64 2d 77 20 30 20 77 69 | 6e 64 6f 77 2d 68 65 69 |d-w 0 wi|ndow-hei|
|00001810| 67 68 74 20 73 70 6c 69 | 74 2d 77 69 6e 64 6f 77 |ght spli|t-window|
|00001820| 20 73 70 6c 69 74 2d 77 | 69 6e 64 6f 77 2d 6b 65 | split-w|indow-ke|
|00001830| 65 70 2d 70 6f 69 6e 74 | 20 77 69 6e 64 6f 77 2d |ep-point| window-|
|00001840| 62 75 66 66 65 72 20 77 | 69 6e 64 6f 77 2d 73 74 |buffer w|indow-st|
|00001850| 61 72 74 20 76 65 72 74 | 69 63 61 6c 2d 6d 6f 74 |art vert|ical-mot|
|00001860| 69 6f 6e 20 73 65 74 2d | 77 69 6e 64 6f 77 2d 73 |ion set-|window-s|
|00001870| 74 61 72 74 20 77 69 6e | 64 6f 77 2d 70 6f 69 6e |tart win|dow-poin|
|00001880| 74 20 73 65 74 2d 77 69 | 6e 64 6f 77 2d 70 6f 69 |t set-wi|ndow-poi|
|00001890| 6e 74 20 74 20 2d 31 20 | 73 65 6c 65 63 74 2d 77 |nt t -1 |select-w|
|000018a0| 69 6e 64 6f 77 5d 20 37 | 20 28 23 24 20 2e 20 35 |indow] 7| (#$ . 5|
|000018b0| 30 32 39 29 20 22 50 22 | 5d 29 0a 23 40 32 31 36 |029) "P"|]).#@216|
|000018c0| 20 53 70 6c 69 74 20 63 | 75 72 72 65 6e 74 20 77 | Split c|urrent w|
|000018d0| 69 6e 64 6f 77 20 69 6e | 74 6f 20 74 77 6f 20 77 |indow in|to two w|
|000018e0| 69 6e 64 6f 77 73 20 73 | 69 64 65 20 62 79 20 73 |indows s|ide by s|
|000018f0| 69 64 65 2e 0a 54 68 69 | 73 20 77 69 6e 64 6f 77 |ide..Thi|s window|
|00001900| 20 62 65 63 6f 6d 65 73 | 20 74 68 65 20 6c 65 66 | becomes| the lef|
|00001910| 74 6d 6f 73 74 20 6f 66 | 20 74 68 65 20 74 77 6f |tmost of| the two|
|00001920| 2c 20 61 6e 64 20 67 65 | 74 73 20 41 52 47 20 63 |, and ge|ts ARG c|
|00001930| 6f 6c 75 6d 6e 73 2e 0a | 4e 65 67 61 74 69 76 65 |olumns..|Negative|
|00001940| 20 61 72 67 20 6d 65 61 | 6e 73 20 73 65 6c 65 63 | arg mea|ns selec|
|00001950| 74 20 74 68 65 20 73 69 | 7a 65 20 6f 66 20 74 68 |t the si|ze of th|
|00001960| 65 20 72 69 67 68 74 6d | 6f 73 74 20 77 69 6e 64 |e rightm|ost wind|
|00001970| 6f 77 20 69 6e 73 74 65 | 61 64 2e 0a 4e 6f 20 61 |ow inste|ad..No a|
|00001980| 72 67 20 6d 65 61 6e 73 | 20 73 70 6c 69 74 20 65 |rg means| split e|
|00001990| 71 75 61 6c 6c 79 2e 1f | 0a 28 64 65 66 61 6c 69 |qually..|.(defali|
|000019a0| 61 73 20 27 73 70 6c 69 | 74 2d 77 69 6e 64 6f 77 |as 'spli|t-window|
|000019b0| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 6c 79 20 23 5b |-horizon|tally #[|
|000019c0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|000019d0| 22 08 ad 83 c1 08 21 89 | 1a ab 8a 5c 6e c3 57 ab |".....!.|...\n.W.|
|000019e0| 85 c4 20 5c 6e 5c 5c 12 | c5 c6 5c 6e c7 23 29 87 |.. \n\\.|..\n.#).|
|000019f0| 22 20 5b 61 72 67 20 70 | 72 65 66 69 78 2d 6e 75 |" [arg p|refix-nu|
|00001a00| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 73 69 7a 65 |meric-va|lue size|
|00001a10| 20 30 20 77 69 6e 64 6f | 77 2d 77 69 64 74 68 20 | 0 windo|w-width |
|00001a20| 73 70 6c 69 74 2d 77 69 | 6e 64 6f 77 20 6e 69 6c |split-wi|ndow nil|
|00001a30| 20 74 5d 20 35 20 28 23 | 24 20 2e 20 36 33 33 37 | t] 5 (#|$ . 6337|
|00001a40| 29 20 22 50 22 5d 29 0a | 23 40 34 30 20 4d 61 6b |) "P"]).|#@40 Mak|
|00001a50| 65 20 63 75 72 72 65 6e | 74 20 77 69 6e 64 6f 77 |e curren|t window|
|00001a60| 20 41 52 47 20 63 6f 6c | 75 6d 6e 73 20 77 69 64 | ARG col|umns wid|
|00001a70| 65 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |er...(de|falias '|
|00001a80| 65 6e 6c 61 72 67 65 2d | 77 69 6e 64 6f 77 2d 68 |enlarge-|window-h|
|00001a90| 6f 72 69 7a 6f 6e 74 61 | 6c 6c 79 20 23 5b 28 61 |orizonta|lly #[(a|
|00001aa0| 72 67 29 20 22 c0 09 c2 | 5c 22 87 22 20 5b 65 6e |rg) "...|\"." [en|
|00001ab0| 6c 61 72 67 65 2d 77 69 | 6e 64 6f 77 20 61 72 67 |large-wi|ndow arg|
|00001ac0| 20 74 5d 20 33 20 28 23 | 24 20 2e 20 36 37 33 33 | t] 3 (#|$ . 6733|
|00001ad0| 29 20 22 70 22 5d 29 0a | 23 40 34 33 20 4d 61 6b |) "p"]).|#@43 Mak|
|00001ae0| 65 20 63 75 72 72 65 6e | 74 20 77 69 6e 64 6f 77 |e curren|t window|
|00001af0| 20 41 52 47 20 63 6f 6c | 75 6d 6e 73 20 6e 61 72 | ARG col|umns nar|
|00001b00| 72 6f 77 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |rower...|(defalia|
|00001b10| 73 20 27 73 68 72 69 6e | 6b 2d 77 69 6e 64 6f 77 |s 'shrin|k-window|
|00001b20| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 6c 79 20 23 5b |-horizon|tally #[|
|00001b30| 28 61 72 67 29 20 22 c0 | 09 c2 5c 22 87 22 20 5b |(arg) ".|..\"." [|
|00001b40| 73 68 72 69 6e 6b 2d 77 | 69 6e 64 6f 77 20 61 72 |shrink-w|indow ar|
|00001b50| 67 20 74 5d 20 33 20 28 | 23 24 20 2e 20 36 38 37 |g t] 3 (|#$ . 687|
|00001b60| 37 29 20 22 70 22 5d 29 | 0a 23 40 33 36 37 20 53 |7) "p"])|.#@367 S|
|00001b70| 68 72 69 6e 6b 20 74 68 | 65 20 57 49 4e 44 4f 57 |hrink th|e WINDOW|
|00001b80| 20 74 6f 20 62 65 20 61 | 73 20 73 6d 61 6c 6c 20 | to be a|s small |
|00001b90| 61 73 20 70 6f 73 73 69 | 62 6c 65 20 74 6f 20 64 |as possi|ble to d|
|00001ba0| 69 73 70 6c 61 79 20 69 | 74 73 20 63 6f 6e 74 65 |isplay i|ts conte|
|00001bb0| 6e 74 73 2e 0a 44 6f 20 | 6e 6f 74 20 73 68 72 69 |nts..Do |not shri|
|00001bc0| 6e 6b 20 74 6f 20 6c 65 | 73 73 20 74 68 61 6e 20 |nk to le|ss than |
|00001bd0| 60 77 69 6e 64 6f 77 2d | 6d 69 6e 2d 68 65 69 67 |`window-|min-heig|
|00001be0| 68 74 27 20 6c 69 6e 65 | 73 2e 0a 44 6f 20 6e 6f |ht' line|s..Do no|
|00001bf0| 74 68 69 6e 67 20 69 66 | 20 74 68 65 20 62 75 66 |thing if| the buf|
|00001c00| 66 65 72 20 63 6f 6e 74 | 61 69 6e 73 20 6d 6f 72 |fer cont|ains mor|
|00001c10| 65 20 6c 69 6e 65 73 20 | 74 68 61 6e 20 74 68 65 |e lines |than the|
|00001c20| 20 70 72 65 73 65 6e 74 | 20 77 69 6e 64 6f 77 20 | present| window |
|00001c30| 68 65 69 67 68 74 2c 0a | 6f 72 20 69 66 20 73 6f |height,.|or if so|
|00001c40| 6d 65 20 6f 66 20 74 68 | 65 20 77 69 6e 64 6f 77 |me of th|e window|
|00001c50| 27 73 20 63 6f 6e 74 65 | 6e 74 73 20 61 72 65 20 |'s conte|nts are |
|00001c60| 73 63 72 6f 6c 6c 65 64 | 20 6f 75 74 20 6f 66 20 |scrolled| out of |
|00001c70| 76 69 65 77 2c 0a 6f 72 | 20 69 66 20 74 68 65 20 |view,.or| if the |
|00001c80| 77 69 6e 64 6f 77 20 69 | 73 20 6e 6f 74 20 74 68 |window i|s not th|
|00001c90| 65 20 66 75 6c 6c 20 77 | 69 64 74 68 20 6f 66 20 |e full w|idth of |
|00001ca0| 74 68 65 20 66 72 61 6d | 65 2c 0a 6f 72 20 69 66 |the fram|e,.or if|
|00001cb0| 20 74 68 65 20 77 69 6e | 64 6f 77 20 69 73 20 74 | the win|dow is t|
|00001cc0| 68 65 20 6f 6e 6c 79 20 | 77 69 6e 64 6f 77 20 6f |he only |window o|
|00001cd0| 66 20 69 74 73 20 66 72 | 61 6d 65 2e 1f 0a 28 64 |f its fr|ame...(d|
|00001ce0| 65 66 61 6c 69 61 73 20 | 27 73 68 72 69 6e 6b 2d |efalias |'shrink-|
|00001cf0| 77 69 6e 64 6f 77 2d 69 | 66 2d 6c 61 72 67 65 72 |window-i|f-larger|
|00001d00| 2d 74 68 61 6e 2d 62 75 | 66 66 65 72 20 23 5b 28 |-than-bu|ffer #[(|
|00001d10| 26 6f 70 74 69 6f 6e 61 | 6c 20 77 69 6e 64 6f 77 |&optiona|l window|
|00001d20| 29 20 22 08 ac 83 c1 20 | 10 8a c2 08 21 71 88 c3 |) ".... |....!q..|
|00001d30| 64 6d ac 8a 64 53 66 c4 | 61 ab 83 c5 aa 81 c3 5a |dm..dSf.|a......Z|
|00001d40| c6 c7 08 21 c8 5c 22 c9 | c1 20 21 1e 5c 6e 1e 0b |...!.\".|. !.\n..|
|00001d50| 1e 0c 1e 0d c5 ce 20 1e | 0f d0 c7 08 21 21 88 d1 |...... .|....!!..|
|00001d60| 8e d2 20 2a 57 ad d3 d3 | c7 08 21 c3 5c 22 d3 c7 |.. *W...|..!.\"..|
|00001d70| 08 21 d4 5c 22 61 ad c4 | d5 65 08 5c 22 ad be 0e |.!.\"a..|.e.\"...|
|00001d80| 0b d6 61 3f ad b7 0e 0b | ab 9b 0e 0b d7 61 ac 95 |..a?....|.....a..|
|00001d90| d8 0e 5c 6e 38 c9 0e 0b | 21 41 40 57 ac 88 0e 5c |..\n8...|!A@W...\|
|00001da0| 6e 41 40 c3 56 ad 98 d9 | 8b 88 0e 0d c3 56 ad 8f |nA@.V...|.....V..|
|00001db0| da 0e 0d 53 db 08 21 0e | 1c 54 5a 5e dd 08 23 2d |...S..!.|.TZ^..#-|
|00001dc0| 87 22 20 5b 77 69 6e 64 | 6f 77 20 73 65 6c 65 63 |." [wind|ow selec|
|00001dd0| 74 65 64 2d 77 69 6e 64 | 6f 77 20 77 69 6e 64 6f |ted-wind|ow windo|
|00001de0| 77 2d 62 75 66 66 65 72 | 20 30 20 3f 5c 6e 20 31 |w-buffer| 0 ?\n 1|
|00001df0| 20 66 72 61 6d 65 2d 70 | 72 6f 70 65 72 74 79 20 | frame-p|roperty |
|00001e00| 77 69 6e 64 6f 77 2d 66 | 72 61 6d 65 20 6d 69 6e |window-f|rame min|
|00001e10| 69 62 75 66 66 65 72 20 | 77 69 6e 64 6f 77 2d 70 |ibuffer |window-p|
|00001e20| 69 78 65 6c 2d 65 64 67 | 65 73 20 65 64 67 65 73 |ixel-edg|es edges|
|00001e30| 20 6d 69 6e 69 20 74 65 | 73 74 2d 70 6f 73 20 6e | mini te|st-pos n|
|00001e40| 20 73 65 6c 65 63 74 65 | 64 2d 66 72 61 6d 65 20 | selecte|d-frame |
|00001e50| 66 72 61 6d 65 20 73 65 | 6c 65 63 74 2d 66 72 61 |frame se|lect-fra|
|00001e60| 6d 65 20 28 28 73 65 6c | 65 63 74 2d 66 72 61 6d |me ((sel|ect-fram|
|00001e70| 65 20 66 72 61 6d 65 29 | 29 20 63 6f 75 6e 74 2d |e frame)|) count-|
|00001e80| 77 69 6e 64 6f 77 73 20 | 66 72 61 6d 65 2d 68 69 |windows |frame-hi|
|00001e90| 67 68 65 73 74 2d 77 69 | 6e 64 6f 77 20 2d 31 20 |ghest-wi|ndow -1 |
|00001ea0| 70 6f 73 2d 76 69 73 69 | 62 6c 65 2d 69 6e 2d 77 |pos-visi|ble-in-w|
|00001eb0| 69 6e 64 6f 77 2d 70 20 | 6f 6e 6c 79 20 74 20 33 |indow-p |only t 3|
|00001ec0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 65 62 | ((byte-|code "eb|
|00001ed0| 88 c0 09 21 ab 93 c2 0b | 09 5c 22 ab 8d c4 c5 c6 |...!....|.\".....|
|00001ee0| 09 23 88 0e 07 54 16 07 | aa 68 c6 87 22 20 5b 77 |.#...T..|.h.." [w|
|00001ef0| 69 6e 64 6f 77 2d 6c 69 | 76 65 2d 70 20 77 69 6e |indow-li|ve-p win|
|00001f00| 64 6f 77 20 70 6f 73 2d | 76 69 73 69 62 6c 65 2d |dow pos-|visible-|
|00001f10| 69 6e 2d 77 69 6e 64 6f | 77 2d 70 20 74 65 73 74 |in-windo|w-p test|
|00001f20| 2d 70 6f 73 20 73 68 72 | 69 6e 6b 2d 77 69 6e 64 |-pos shr|ink-wind|
|00001f30| 6f 77 20 31 20 6e 69 6c | 20 6e 5d 20 34 29 29 20 |ow 1 nil| n] 4)) |
|00001f40| 73 68 72 69 6e 6b 2d 77 | 69 6e 64 6f 77 20 77 69 |shrink-w|indow wi|
|00001f50| 6e 64 6f 77 2d 68 65 69 | 67 68 74 20 77 69 6e 64 |ndow-hei|ght wind|
|00001f60| 6f 77 2d 6d 69 6e 2d 68 | 65 69 67 68 74 20 6e 69 |ow-min-h|eight ni|
|00001f70| 6c 5d 20 35 20 28 23 24 | 20 2e 20 37 30 32 33 29 |l] 5 (#$| . 7023)|
|00001f80| 20 6e 69 6c 5d 29 0a 23 | 40 35 37 20 4b 69 6c 6c | nil]).#|@57 Kill|
|00001f90| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|00001fa0| 66 65 72 20 61 6e 64 20 | 64 65 6c 65 74 65 20 74 |fer and |delete t|
|00001fb0| 68 65 20 73 65 6c 65 63 | 74 65 64 20 77 69 6e 64 |he selec|ted wind|
|00001fc0| 6f 77 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ow...(de|falias '|
|00001fd0| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 2d 61 6e 64 2d |kill-buf|fer-and-|
|00001fe0| 77 69 6e 64 6f 77 20 23 | 5b 6e 69 6c 20 22 c0 c1 |window #|[nil "..|
|00001ff0| c2 c3 20 5c 22 21 ab 8c | 70 1c c5 c6 20 21 88 c7 |.. \"!..|p... !..|
|00002000| 0c 21 29 87 c8 c9 21 87 | 22 20 5b 79 65 73 2d 6f |.!)...!.|" [yes-o|
|00002010| 72 2d 6e 6f 2d 70 20 66 | 6f 72 6d 61 74 20 22 4b |r-no-p f|ormat "K|
|00002020| 69 6c 6c 20 62 75 66 66 | 65 72 20 60 25 73 27 3f |ill buff|er `%s'?|
|00002030| 20 22 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 62 | " buffe|r-name b|
|00002040| 75 66 66 65 72 20 64 65 | 6c 65 74 65 2d 77 69 6e |uffer de|lete-win|
|00002050| 64 6f 77 20 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |dow sele|cted-win|
|00002060| 64 6f 77 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 20 |dow kill|-buffer |
|00002070| 65 72 72 6f 72 20 22 41 | 62 6f 72 74 65 64 22 5d |error "A|borted"]|
|00002080| 20 34 20 28 23 24 20 2e | 20 38 30 37 36 29 20 6e | 4 (#$ .| 8076) n|
|00002090| 69 6c 5d 29 0a 23 40 39 | 30 37 20 52 65 74 75 72 |il]).#@9|07 Retur|
|000020a0| 6e 20 61 20 6c 69 73 74 | 20 6f 66 20 65 78 69 73 |n a list| of exis|
|000020b0| 74 69 6e 67 20 77 69 6e | 64 6f 77 73 2e 0a 49 66 |ting win|dows..If|
|000020c0| 20 74 68 65 20 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | the opt|ional ar|
|000020d0| 67 75 6d 65 6e 74 20 4d | 49 4e 49 42 55 46 20 69 |gument M|INIBUF i|
|000020e0| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 6e 20 |s non-ni|l, then |
|000020f0| 69 6e 63 6c 75 64 65 20 | 6d 69 6e 69 62 75 66 66 |include |minibuff|
|00002100| 65 72 0a 77 69 6e 64 6f | 77 73 20 69 6e 20 74 68 |er.windo|ws in th|
|00002110| 65 20 72 65 73 75 6c 74 | 2e 0a 0a 42 79 20 64 65 |e result|...By de|
|00002120| 66 61 75 6c 74 2c 20 6f | 6e 6c 79 20 74 68 65 20 |fault, o|nly the |
|00002130| 77 69 6e 64 6f 77 73 20 | 69 6e 20 74 68 65 20 73 |windows |in the s|
|00002140| 65 6c 65 63 74 65 64 20 | 66 72 61 6d 65 20 61 72 |elected |frame ar|
|00002150| 65 20 72 65 74 75 72 6e | 65 64 2e 0a 54 68 65 20 |e return|ed..The |
|00002160| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 75 6d 65 6e |optional| argumen|
|00002170| 74 20 41 4c 4c 2d 46 52 | 41 4d 45 53 20 63 68 61 |t ALL-FR|AMES cha|
|00002180| 6e 67 65 73 20 74 68 69 | 73 20 62 65 68 61 76 69 |nges thi|s behavi|
|00002190| 6f 72 3a 0a 41 4c 4c 2d | 46 52 41 4d 45 53 20 3d |or:.ALL-|FRAMES =|
|000021a0| 20 60 76 69 73 69 62 6c | 65 27 20 6d 65 61 6e 73 | `visibl|e' means|
|000021b0| 20 69 6e 63 6c 75 64 65 | 20 77 69 6e 64 6f 77 73 | include| windows|
|000021c0| 20 6f 6e 20 61 6c 6c 20 | 76 69 73 69 62 6c 65 20 | on all |visible |
|000021d0| 66 72 61 6d 65 73 2e 0a | 41 4c 4c 2d 46 52 41 4d |frames..|ALL-FRAM|
|000021e0| 45 53 20 3d 20 30 20 6d | 65 61 6e 73 20 69 6e 63 |ES = 0 m|eans inc|
|000021f0| 6c 75 64 65 20 77 69 6e | 64 6f 77 73 20 6f 6e 20 |lude win|dows on |
|00002200| 61 6c 6c 20 76 69 73 69 | 62 6c 65 20 61 6e 64 20 |all visi|ble and |
|00002210| 69 63 6f 6e 69 66 69 65 | 64 20 66 72 61 6d 65 73 |iconifie|d frames|
|00002220| 2e 0a 41 4c 4c 2d 46 52 | 41 4d 45 53 20 3d 20 74 |..ALL-FR|AMES = t|
|00002230| 20 6d 65 61 6e 73 20 69 | 6e 63 6c 75 64 65 20 77 | means i|nclude w|
|00002240| 69 6e 64 6f 77 73 20 6f | 6e 20 61 6c 6c 20 66 72 |indows o|n all fr|
|00002250| 61 6d 65 73 20 69 6e 63 | 6c 75 64 69 6e 67 20 69 |ames inc|luding i|
|00002260| 6e 76 69 73 69 62 6c 65 | 20 66 72 61 6d 65 73 2e |nvisible| frames.|
|00002270| 0a 41 6e 79 74 68 69 6e | 67 20 65 6c 73 65 20 6d |.Anythin|g else m|
|00002280| 65 61 6e 73 20 72 65 73 | 74 72 69 63 74 20 74 6f |eans res|trict to|
|00002290| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 66 72 | the sel|ected fr|
|000022a0| 61 6d 65 2e 0a 54 68 65 | 20 6f 70 74 69 6f 6e 61 |ame..The| optiona|
|000022b0| 6c 20 66 6f 75 72 74 68 | 20 61 72 67 75 6d 65 6e |l fourth| argumen|
|000022c0| 74 20 44 45 56 49 43 45 | 20 66 75 72 74 68 65 72 |t DEVICE| further|
|000022d0| 20 63 6c 61 72 69 66 69 | 65 73 20 77 68 69 63 68 | clarifi|es which|
|000022e0| 20 66 72 61 6d 65 73 20 | 74 6f 0a 73 65 61 72 63 | frames |to.searc|
|000022f0| 68 20 61 73 20 73 70 65 | 63 69 66 69 65 64 20 62 |h as spe|cified b|
|00002300| 79 20 41 4c 4c 2d 46 52 | 41 4d 45 53 2e 20 20 54 |y ALL-FR|AMES. T|
|00002310| 68 69 73 20 76 61 6c 75 | 65 20 69 73 20 6f 6e 6c |his valu|e is onl|
|00002320| 79 20 6d 65 61 6e 69 6e | 67 66 75 6c 20 69 66 0a |y meanin|gful if.|
|00002330| 41 4c 4c 2d 46 52 41 4d | 45 53 20 69 73 20 6e 6f |ALL-FRAM|ES is no|
|00002340| 6e 2d 6e 69 6c 2e 0a 49 | 66 20 6e 69 6c 20 6f 72 |n-nil..I|f nil or|
|00002350| 20 6f 6d 69 74 74 65 64 | 2c 20 73 65 61 72 63 68 | omitted|, search|
|00002360| 20 6f 6e 6c 79 20 74 68 | 65 20 73 65 6c 65 63 74 | only th|e select|
|00002370| 65 64 20 64 65 76 69 63 | 65 2e 0a 49 66 20 61 20 |ed devic|e..If a |
|00002380| 64 65 76 69 63 65 2c 20 | 73 65 61 72 63 68 20 66 |device, |search f|
|00002390| 72 61 6d 65 73 20 6f 6e | 6c 79 20 6f 6e 20 74 68 |rames on|ly on th|
|000023a0| 61 74 20 64 65 76 69 63 | 65 2e 0a 49 66 20 61 20 |at devic|e..If a |
|000023b0| 64 65 76 69 63 65 20 74 | 79 70 65 2c 20 73 65 61 |device t|ype, sea|
|000023c0| 72 63 68 20 66 72 61 6d | 65 73 20 6f 6e 6c 79 20 |rch fram|es only |
|000023d0| 6f 6e 20 64 65 76 69 63 | 65 73 20 6f 66 20 74 68 |on devic|es of th|
|000023e0| 61 74 20 74 79 70 65 2e | 0a 41 6e 79 20 6f 74 68 |at type.|.Any oth|
|000023f0| 65 72 20 6e 6f 6e 2d 6e | 69 6c 20 76 61 6c 75 65 |er non-n|il value|
|00002400| 20 6d 65 61 6e 73 20 73 | 65 61 72 63 68 20 66 72 | means s|earch fr|
|00002410| 61 6d 65 73 20 6f 6e 20 | 61 6c 6c 20 64 65 76 69 |ames on |all devi|
|00002420| 63 65 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ces...(d|efalias |
|00002430| 27 77 69 6e 64 6f 77 2d | 6c 69 73 74 20 23 5b 28 |'window-|list #[(|
|00002440| 26 6f 70 74 69 6f 6e 61 | 6c 20 6d 69 6e 69 62 75 |&optiona|l minibu|
|00002450| 66 20 61 6c 6c 2d 66 72 | 61 6d 65 73 20 64 65 76 |f all-fr|ames dev|
|00002460| 69 63 65 29 20 22 c0 19 | c2 c3 0c 0d 0e 06 24 88 |ice) "..|......$.|
|00002470| 09 29 87 22 20 5b 6e 69 | 6c 20 77 69 6e 73 20 77 |.)." [ni|l wins w|
|00002480| 61 6c 6b 2d 77 69 6e 64 | 6f 77 73 20 23 5b 28 77 |alk-wind|ows #[(w|
|00002490| 69 6e 29 20 22 08 09 42 | 89 11 87 22 20 5b 77 69 |in) "..B|..." [wi|
|000024a0| 6e 20 77 69 6e 73 5d 20 | 32 5d 20 6d 69 6e 69 62 |n wins] |2] minib|
|000024b0| 75 66 20 61 6c 6c 2d 66 | 72 61 6d 65 73 20 64 65 |uf all-f|rames de|
|000024c0| 76 69 63 65 5d 20 35 20 | 28 23 24 20 2e 20 38 33 |vice] 5 |(#$ . 83|
|000024d0| 34 37 29 5d 29 0a | |47)]). | |
+--------+-------------------------+-------------------------+--------+--------+
